home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_06_(08-1984).d64 / hangman 2.0 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  7KB  |  176 lines
  1. 5 DIMA1$(15),A2$(100),A$(100),A(30):C=54272
  2. 20 PRINT"[147]":PRINTCHR$(142):PRINTCHR$(8):POKE53280,0:POKE53281,0:PRINT""
  3. 50 FORX=1TO12:A(X)=1197+X:NEXT:A(13)=1249:A(14)=1289:A(15)=1329
  4. 60 FORX=0TO11:A(X+16)=1369-X:NEXT:A(28)=1318:A(29)=1278:A(30)=1238
  5. 70 FORX=1TO30:POKEA(X),81:NEXT
  6. 80 PRINT:PRINT:PRINTTAB(16)"HANGMAN!"
  7. 90 PRINT:PRINT:PRINT:PRINT:PRINT"    DO YOU REQUIRE INSTRUCTIONS?"
  8. 95 PRINT:PRINT:PRINT:PRINT:PRINT:PRINTSPC(240)"(C) 1983 KLUDGE SOFTWARE"
  9. 100 FORX=1TO30:POKEA(X)+54272,2:FORY=1TO50:NEXTY:POKEA(X)+54272,1
  10. 110 GETA$:IFA$=""THENNEXT
  11. 120 IFA$=""THENGOTO100
  12. 130 IFLEFT$(A$,1)="Y"THEN GOSUB4000
  13. 135 POKE53281,6
  14. 140 IFLEFT$(A$,1)="N"THENPRINT"[147]"
  15. 145 C$="" :M2=0:M1=0:IFZZ>0THEN4580
  16. 150 PRINT:PRINT:PRINTTAB(5)"OPTION A:[146] INTRA-SPECIES RIVALRY:"
  17. 160 PRINT:PRINTTAB(10)"TWO HUMAN PLAYERS."
  18. 170 PRINT:PRINT:PRINTTAB(5)"OPTION B:[146] MAN VS MACHINE-"
  19. 180 PRINT:PRINTTAB(10)"I PICK THE WORDS.":PRINT:PRINTTAB(10)"YOU (TRY TO) GUESS THEM."
  20. 190 PRINT:PRINT:
  21. 200 PRINT"[154]WHICH OPTION?"
  22. 205 GETA$:IFA$=""THEN205
  23. 210 PRINT""
  24. 215 IFA$="B"THENGOTO4500
  25. 225 PRINT"[147]"
  26. 230 PRINT"ENTER A WORD (15 LETTERS OR LESS)."
  27. 240 INPUTA$
  28. 250 IFLEN(A$)>15 THENPRINT"TOO LONG. TRY AGAIN.":GOTO254
  29. 252 GOTO260
  30. 254 TI$="000000"
  31. 255 IFVAL(RIGHT$(TI$,2))<5THEN255
  32. 257 GOTO225
  33. 260 FORX=1TOLEN(A$):A1$(X)="?":NEXT
  34. 262 POKE53281,15:POKE53280,15:PRINT"[144]";
  35. 264 PRINT"[147]"
  36. 265 PRINT"":B$="":M1=0:M3=0
  37. 270 PRINTTAB(17)"YOU ARE GUESSING A WORD"
  38. 280 PRINTTAB(17)"OF";LEN(A$);"LETTERS."
  39. 290 PRINT:PRINTTAB(17) "LETTERS GUESSED:"
  40. 295 FORX=1TOLEN(A$):B$=B$+A1$(X):NEXT
  41. 297 IFB$=A$THEN390
  42. 299 IFLEN(C$)=0THENPRINT
  43. 300 PRINT:PRINT:PRINTTAB(17)B$
  44. 305 FORI=1TO10:GETG$:NEXT
  45. 310 PRINT"":FORX=1TO4:PRINTSPC(220)"";:NEXTX:PRINT"WHAT LETTER?";
  46. 315 GETD$:IFD$=""THEN315
  47. 320 FORX=1TOLEN(A$)
  48. 330 IFMID$(A$,X,1)=D$THENA1$(X)=D$:PRINT"";:M1=1
  49. 340 NEXTX:GOSUB5000
  50. 350 IFM1=0THENM2=M2+1:GOSUB5500
  51. 360 IFM2=9THEN380
  52. 370 GOTO265
  53. 380 GOSUB6500
  54. 385 GOTO400
  55. 390 PRINT:PRINT:PRINTTAB(17)B$
  56. 395 GOSUB6000
  57. 400 PRINT"[147]ANOTHER GAME? (Y/N)"
  58. 410 FORI=1TO10:GETA$:NEXT
  59. 415 GETA$:IFA$=""THEN415
  60. 420 IFA$="Y"THENPOKE53281,0:GOTO140
  61. 430 PRINT:PRINTTAB(9)"THANK YOU AND GOODBYE!"
  62. 440 DATAWOOD,HORSE,SLEEP,WHITE,BOTTOM,SPOON,SCHOOL,AROUND,BLUE,CHERRY,DESERT
  63. 450 DATAELEVEN,FRIEND,GIANT,HARMONICA,ISLAND,JOKE,BANANA,TREASURE,VIOLET,KNIFE
  64. 460 DATALIVER,MOTHER,NEST,OPENER,RESCUE,STOMACH,TEMPER,UNDER,VEST,TIRED,ZEBRA
  65. 470 DATAYELLOW,ANOTHER,CONE,DOUBLE,ESCAPE,FLIGHT,GREEN,HEAR,INVITE,JOIN,LOAD
  66. 480 DATAMONKEY,NIBBLE,ORDER,PISTOL,QUARTER,RABBIT,SANDPILE,TOAST,TRUST,VAMPIRE
  67. 490 DATABROTHER,SISTER,FATHER,CHEESE,GREAT,TRUMPET,SAINT,CREEP,DRUGSTORE
  68. 500 DATAFREEZE,JEALOUS,MEAT,SLICE,VOICE,WASTE,NECKTIE,MISSILE,AIRPLANE
  69. 510 DATASTEAMBOAT,WASHER,LASSO,GIRAFFE,HERO,INVENT,JUMP,BOULDER,CASTLE,KNEE
  70. 520 DATAWHISTLE,BREAD,PILLOW,BEAR,LION,TIGER,MONSTER,TEACHER,LUNCH,MONEY
  71. 530 DATADOLLAR,MORNING,AFTERNOON,CHRISTMAS,PRESENT,SUMMER,SPRING,FALL,WINTER
  72. 540 DATAPESTLE,MARRIAGE,CIRCUMVENT,MORTGAGE,DEVOUR,AMAZE,RESEMBLE,BERATE
  73. 550 DATAEXTENT,FRAGRANT,GOSSIP,HECKLE,INTRUDE,JAPE,KNOLL,LEGUME,NECROSIS
  74. 560 DATAOVATION,PLUMB,QUARREL,SCAR,TRIAGE,UNBEND,VIXEN,WASSAIL,ASCRIBE,BELAY
  75. 570 DATACROCUS,DESCENT,EFFUSIVE,FRAUDULENT,GYRATE,HUMBLE,ISOMETRIC,JURIST,KNOLL
  76. 580 DATALURID,MORALITY,NOSTRIL,ORGANIC,PLEURISY,QUIET,RESTLESS,SAVAGE,TURMOIL
  77. 590 DATAUMBER,VAPOR,WARREN,YELLOW,ZEST,ADIEU,BOOTLESS,CHAR,DOVETAIL,EBONY
  78. 600 DATAFRAGMENT,GOSPEL,HARASS,INCLINATION,JACKANAPES,LUSTER,LOAM,MIXTURE
  79. 610 DATANESTLE,OPIATE,QUANTITY,REBATE,SCANDAL,TORPOR,UPPER,VORTEX,WELTER
  80. 620 DATAYARROW,BLUSTER,LEADEN,ASTRIDE,BUSTLE,CARTON,DERRICK,EMOLLIENT,FORTRESS
  81. 630 DATAGAMBOL,HURDLE,INTONE,JUSTIFY,KNELL,LOLL,METRIC,NEPOTISM,OSTRACIZE
  82. 640 DATAPARING,QUEST,RODENT,SHIVER,TORRID,ULSTER,VARNISH,WORSTED,YODEL,CRADLE
  83. 650 DATAABJURE,BESANT,DULCET,ERUCTATE,FRANGIBLE,GYVES,HISTOGRAM,INCANABULA
  84. 660 DATAJURIDICAL,KOHL,LENTICULAR,MURRAIN,NARCOLEPSY,OGIVE,PSITTACOSIS,QUAFF
  85. 670 DATARABBET,SYLPH,TRUNDLE,UGLI,VEDETTE,WEN,XEBEC,YURT,ZEDOARY,ANENT
  86. 680 DATABOLECTION,CAIRNGORM,ETIOLATE,FASCES,GALLIGASKINS,HELVE,INDENTION,JABOT
  87. 690 DATAKERF,LECTION,MYXOMYCETES,NOCTILUCENT,OAST,PALINODE,DERACINATE,RAMOSE
  88. 700 DATASALMAGUNDI,TRUCKLE,URCEOLATE,VARIORUM,WADDY,XYSTER,YEANLING,CABOCHON
  89. 710 DATAASPERGILL,BAST,CACHET,ENANTIOMORPH,FICHU,GAZEHOUND,HASLET,INCUS,JONQUIL
  90. 720 DATAKIER,LEPORINE,MACHICOLATION,NONAGE,OBELIZE,PANTILE,QUINCUNX,REDACTION
  91. 730 DATASCANSORIAL,TANGRAM,URTICARIA,VARVE,WANIGAN,XENOLITH,YOGH,CONDIGN
  92. 740 DATAABROGATE,BUSTARD,CERATE,EPICENE,FRIABLE,GLEBE,HYRAX,IATROGENIC,JUJUBE
  93. 750 DATAKESTREL,LENIS,MACULA,NOMOGRAPH,OBLOQUY,PARBUCKLE,QUERN,REFRINGENT
  94. 760 DATASCROD,TERCEL,USUFRUCT,VIAND,WENTLETRAP,XYLOGRAPH,YARMULKE,COPAL
  95. 3999 END
  96. 4000 PRINT"[147]":PRINT:PRINT:PRINT:POKE53281,12
  97. 4010 PRINT"THE OBJECT OF [144]HANGMAN IS TO GUESS AN"
  98. 4020 PRINT:PRINT"AN UNKNOWN WORD BEFORE YOU ARE HANGED."
  99. 4025 PRINT:PRINT"YOU GUESS [144]ONE LETTER AT A TIME."
  100. 4030 PRINT:PRINT"A WRONG GUESS ADDS A PART TO YOUR"
  101. 4040 PRINT:PRINT"HANGING; ON THE NINTH WRONG GUESS YOU"
  102. 4050 PRINT:PRINT"WILL [144]DIE!":PRINT
  103. 4055 PRINT"YOU MUST EXIT PROGRAM TO CHANGE MODES OR":PRINT"LEVELS.":PRINT
  104. 4060 PRINTTAB(10)"PRESS C TO CONTINUE"
  105. 4070 GETZ$:IFZ$<>"C"THEN4070
  106. 4080 RETURN
  107. 4500 PRINT"[147]THERE ARE 3 LEVELS OF DIFFICULTY."
  108. 4510 PRINTTAB(10)"LEVEL 1: EASY":PRINT
  109. 4520 PRINTTAB(10)"LEVEL 2: MEDIUM":PRINT
  110. 4530 PRINTTAB(10)"LEVEL 3: HARD":PRINT:PRINTTAB(10)"I MEAN IT![146]":PRINT
  111. 4537 PRINT:PRINT
  112. 4540 PRINT"WHICH LEVEL?"
  113. 4542 GETF$:IFF$=""THEN4542
  114. 4543 LV%=VAL(F$):ZZ=1
  115. 4545 IFLV%=1THEN4575
  116. 4547 IFLV%=2THEN4570
  117. 4548 IFLV%=3THEN4560
  118. 4550 IFLV%<1ORLV%>3THENPRINT"PLEASE CHOOSE 1,2 OR 3.":GOTO4540
  119. 4560 FORX=OTO99:READX$:NEXT
  120. 4570 FORX=0TO99:READA$:NEXT
  121. 4575 FORX=1TO100:READA$(X):NEXT
  122. 4580 CH=INT(RND(1)*100)+1
  123. 4590 A$=A$(CH):A$(CH)="":IFLEN(A$)>0THEN260
  124. 4600 GOTO4580
  125. 5000 SL=236-19+LEN(C$)
  126. 5010 FORX=237TOSLSTEP-1:PRINT""
  127. 5020 PRINTSPC(X)D$;"_ ";
  128. 5030 NEXT:C$=C$+D$:PRINT"[144]";:RETURN
  129. 5500 IFM2=1THENFORX=1105TO1865STEP40:POKEX,160:POKEX+1,160:NEXT
  130. 5505 IFM2=1THENFORX=1105TO1865STEP40:POKEX+C,1:POKEX+1+C,1:NEXT
  131. 5510 IFM2=2THENFORX=1107TO1118:POKEX,160:NEXT
  132. 5515 IFM2=2THENFORX=1107TO1118:POKEX+C,1:NEXT
  133. 5520 IFM2=3THENPOKE1267,105:POKE1227,233:POKE1228,105:POKE1188,233
  134. 5525 IFM2=3THENPOKE1267+C,1:POKE1227+C,1:POKE1228+C,1:POKE1188+C,1
  135. 5530 IFM2=3THENPOKE1189,105:POKE1149,233:POKE1150,105
  136. 5535 IFM2=3THENPOKE1189+C,1:POKE1149+C,1:POKE1150+C,1
  137. 5540 IFM2=4THENPOKE1153,103:POKE1154,101:POKE1193,103:POKE1194,101
  138. 5545 IFM2=4THENPOKE1153+C,1:POKE1154+C,1:POKE1193+C,1:POKE1194+C,1
  139. 5550 IFM2=4THENPOKE1233,233:POKE1234,223
  140. 5555 IFM2=4THENPOKE1233+C,1:POKE1234+C,1
  141. 5560 IFM2=4THENPOKE1272,103:POKE1273,193:POKE1274,193:POKE1275,101
  142. 5565 IFM2=4THENPOKE1272+C,1:POKE1273+C,1:POKE1274+C,1:POKE1275+C,1
  143. 5570 IFM2=4THENPOKE1312,103:POKE1313,237:POKE1314,253:POKE1315,101
  144. 5575 IFM2=4THENPOKE1312+C,1:POKE1313+C,1:POKE1314+C,1:POKE1315+C,1
  145. 5580 IFM2=5THENPOKE1353,80:POKE1354,79
  146. 5585 IFM2=5THENPOKE1353+C,1:POKE1354+C,1
  147. 5590 IFM2=5THENFORX=1393TO1543STEP40:POKEX,160:POKEX+1,160:NEXT
  148. 5595 IFM2=5THENFORX=1393TO1543STEP40:POKEX+C,1:POKEX+1+C,1:NEXT
  149. 5600 IFM2=6THENPOKE1471,105:POKE1431,233:POKE1432,105:POKE1392,233
  150. 5605 IFM2=6THENPOKE1471+C,1:POKE1431+C,1:POKE1432+C,1:POKE1392+C,1
  151. 5610 IFM2=7THENPOKE1395,223:POKE1435,95:POKE1436,223:POKE1476,95
  152. 5615 IFM2=7THENPOKE1395+C,1:POKE1435+C,1:POKE1436+C,1:POKE1476+C,1
  153. 5620 IFM2=8THENPOKE1590,223:POKE1630,95:POKE1631,105:POKE1591,233
  154. 5625 IFM2=8THENPOKE1590+C,1:POKE1630+C,1:POKE1631+C,1:POKE1591+C,1
  155. 5630 IFM2=8THENPOKE1592,105:POKE1552,233:POKE1553,105
  156. 5635 IFM2=8THENPOKE1592+C,1:POKE1552+C,1:POKE1553+C,1
  157. 5640 IFM2=9THENPOKE1554,95:POKE1555,223:POKE1595,95:POKE1596,223
  158. 5645 IFM2=9THENPOKE1554+C,1:POKE1555+C,1:POKE1595+C,1:POKE1596+C,1
  159. 5650 IFM2=9THENPOKE1636,95:POKE1637,105:POKE1597,233
  160. 5655 IFM2=9THENPOKE1636+C,1:POKE1637+C,1:POKE1597+C,1
  161. 5700 RETURN
  162. 6000 PRINT"YOU[146] WON![146]"
  163. 6010 TI$="000000"
  164. 6020 IFVAL(RIGHT$(TI$,2))<5THEN6020
  165. 6040 PRINT"[147][146]!!CONGRATULATIONS!![146]"
  166. 6050 TI$="000000"
  167. 6060 IFVAL(RIGHT$(TI$,2))<5THEN6060
  168. 6070 RETURN
  169. 6500 PRINT"[144]YOU[146] DIE![146]"
  170. 6502 PRINT:PRINTTAB(10)"THE WORD WAS: ";A$
  171. 6505 POKE1313,240:POKE1314,238
  172. 6510 D1=55296:FORY=1TO22:FORX=1TO14:POKED1+X+40*Y,0:NEXTX:NEXTY
  173. 6520 TI$="000000"
  174. 6530 IFVAL(RIGHT$(TI$,2))<5THEN6530
  175. 6540 RETURN
  176.